PC Plus SuperCD (UK) 1997 May/PC Plus Super CD Issue 127 (May 1997).iso/delphi2/delphite.exe/data.z/DATAMOD.DFM/DATAMOD.txt

Text File | 1996-08-12 | 14.9 KB | 627 lines

object MastData: TMastData
  Left = 264
  Top = 120
  Height = 337
  Width = 384
  object Database: TDatabase
    AliasName = 'DBDEMOS'
    Connected = True
    DatabaseName = 'MAST'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=sysdba'
      'PASSWORD=masterkey')
    SessionName = 'Default'
    TransIsolation = tiDirtyRead
    Left = 324
    Top = 252
  end
  object NextCust: TTable
    DatabaseName = 'MAST'
    Exclusive = True
    TableName = 'NEXTCUST'
    Left = 156
    Top = 60
    object NextCustNewCust: TFloatField
      FieldName = 'NewCust'
    end
  end
  object Parts: TTable
    Active = True
    CachedUpdates = True
    BeforeOpen = PartsBeforeOpen
    OnCalcFields = PartsCalcFields
    OnUpdateError = EditUpdateError
    DatabaseName = 'MAST'
    TableName = 'PARTS'
    Left = 20
    Top = 157
    object PartsPartNo: TFloatField
      Alignment = taLeftJustify
      DisplayWidth = 8
      FieldName = 'PartNo'
      Required = True
    end
    object PartsDescription: TStringField
      DisplayWidth = 21
      FieldName = 'Description'
      Required = True
      Size = 30
    end
    object PartsVendorNo: TFloatField
      DisplayWidth = 9
      FieldName = 'VendorNo'
    end
    object PartsOnHand: TFloatField
      DisplayWidth = 9
      FieldName = 'OnHand'
    end
    object PartsOnOrder: TFloatField
      DisplayWidth = 10
      FieldName = 'OnOrder'
    end
    object PartsBackOrd: TBooleanField
      Calculated = True
      DisplayWidth = 9
      FieldName = 'BackOrd'
      DisplayValues = 'Yes;No'
    end
    object PartsCost: TCurrencyField
      DisplayWidth = 12
      FieldName = 'Cost'
    end
    object PartsListPrice: TCurrencyField
      DisplayWidth = 12
      FieldName = 'ListPrice'
    end
  end
  object PartsSource: TDataSource
    DataSet = Parts
    Left = 88
    Top = 157
  end
  object PartsQuery: TQuery
    OnCalcFields = PartsQueryCalcFields
    DatabaseName = 'MAST'
    SQL.Strings = (
      'select * from parts'
      ' where (parts.OnOrder > parts.OnHand)'
      '')
    Left = 156
    Top = 157
    object PartsQueryPartNo: TFloatField
      Alignment = taLeftJustify
      DisplayWidth = 8
      FieldName = 'PartNo'
    end
    object PartsQueryDescription: TStringField
      DisplayWidth = 21
      FieldName = 'Description'
      Size = 30
    end
    object PartsQueryVendorNo: TFloatField
      FieldName = 'VendorNo'
    end
    object PartsQueryOnHand: TFloatField
      DisplayWidth = 9
      FieldName = 'OnHand'
    end
    object PartsQueryOnOrder: TFloatField
      DisplayWidth = 10
      FieldName = 'OnOrder'
    end
    object PartsQueryBackOrd: TBooleanField
      Calculated = True
      DisplayWidth = 9
      FieldName = 'BackOrd'
      DisplayValues = 'Yes;No'
    end
    object PartsQueryCost: TCurrencyField
      FieldName = 'Cost'
    end
    object PartsQueryListPrice: TCurrencyField
      FieldName = 'ListPrice'
    end
  end
  object VendorSource: TDataSource
    DataSet = Vendors
    Left = 90
    Top = 252
  end
  object Vendors: TTable
    Active = True
    DatabaseName = 'MAST'
    ReadOnly = True
    TableName = 'VENDORS'
    Left = 20
    Top = 252
  end
  object Orders: TTable
    Active = True
    CachedUpdates = True
    BeforeOpen = OrdersBeforeOpen
    BeforeClose = OrdersBeforeClose
    BeforeInsert = OrdersBeforeInsert
    BeforeEdit = OrdersBeforeEdit
    AfterPost = OrdersAfterPost
    BeforeCancel = OrdersBeforeCancel
    AfterCancel = OrdersAfterCancel
    BeforeDelete = OrdersBeforeDelete
    AfterDelete = OrdersAfterDelete
    OnNewRecord = OrdersNewRecord
    OnCalcFields = OrdersCalcFields
    DatabaseName = 'MAST'
    IndexFieldNames = 'OrderNo'
    TableName = 'ORDERS'
    Left = 20
    Top = 12
    object OrdersOrderNo: TFloatField
      Alignment = taLeftJustify
      FieldName = 'OrderNo'
    end
    object OrdersCustNo: TFloatField
      Alignment = taLeftJustify
      FieldName = 'CustNo'
      Required = True
      OnChange = OrdersCustNoChange
    end
    object OrdersSaleDate: TDateTimeField
      FieldName = 'SaleDate'
      OnValidate = OrdersSaleDateValidate
    end
    object OrdersShipDate: TDateTimeField
      FieldName = 'ShipDate'
    end
    object OrdersShipToContact: TStringField
      FieldName = 'ShipToContact'
    end
    object OrdersShipToAddr1: TStringField
      FieldName = 'ShipToAddr1'
      Size = 30
    end
    object OrdersShipToAddr2: TStringField
      FieldName = 'ShipToAddr2'
      Size = 30
    end
    object OrdersShipToCity: TStringField
      FieldName = 'ShipToCity'
      Size = 15
    end
    object OrdersShipToState: TStringField
      FieldName = 'ShipToState'
    end
    object OrdersShipToZip: TStringField
      FieldName = 'ShipToZip'
      Size = 10
    end
    object OrdersShipToCountry: TStringField
      FieldName = 'ShipToCountry'
    end
    object OrdersShipToPhone: TStringField
      FieldName = 'ShipToPhone'
      Size = 15
    end
    object OrdersShipVIA: TStringField
      FieldName = 'ShipVIA'
      Size = 7
    end
    object OrdersPO: TStringField
      FieldName = 'PO'
      Size = 15
    end
    object OrdersEmpNo: TIntegerField
      FieldName = 'EmpNo'
      Required = True
    end
    object OrdersTerms: TStringField
      FieldName = 'Terms'
      Size = 6
    end
    object OrdersPaymentMethod: TStringField
      FieldName = 'PaymentMethod'
      Size = 7
    end
    object OrdersItemsTotal: TCurrencyField
      FieldName = 'ItemsTotal'
    end
    object OrdersTaxRate: TFloatField
      FieldName = 'TaxRate'
      DisplayFormat = '0.00%;(0.00%);0%'
      MaxValue = 100.000000000000000000
    end
    object OrdersTaxTotal: TCurrencyField
      Calculated = True
      FieldName = 'TaxTotal'
    end
    object OrdersFreight: TCurrencyField
      FieldName = 'Freight'
      OnValidate = OrdersFreightValidate
    end
    object OrdersAmountPaid: TCurrencyField
      FieldName = 'AmountPaid'
    end
    object OrdersAmountDue: TCurrencyField
      Calculated = True
      FieldName = 'AmountDue'
    end
  end
  object OrdersSource: TDataSource
    DataSet = Orders
    Left = 86
    Top = 12
  end
  object CustByOrd: TTable
    Active = True
    DatabaseName = 'MAST'
    IndexFieldNames = 'CustNo'
    MasterFields = 'CustNo'
    MasterSource = OrdersSource
    ReadOnly = True
    TableName = 'CUSTOMER'
    Left = 20
    Top = 60
    object CustByOrdCustNo: TFloatField
      FieldName = 'CustNo'
    end
    object CustByOrdCompany: TStringField
      FieldName = 'Company'
      Size = 30
    end
    object CustByOrdAddr1: TStringField
      FieldName = 'Addr1'
      Size = 30
    end
    object CustByOrdAddr2: TStringField
      FieldName = 'Addr2'
      Size = 30
    end
    object CustByOrdCity: TStringField
      FieldName = 'City'
      Size = 15
    end
    object CustByOrdState: TStringField
      FieldName = 'State'
    end
    object CustByOrdZip: TStringField
      FieldName = 'Zip'
      Size = 10
    end
    object CustByOrdCountry: TStringField
      FieldName = 'Country'
    end
    object CustByOrdPhone: TStringField
      FieldName = 'Phone'
      Size = 15
    end
    object CustByOrdFAX: TStringField
      FieldName = 'FAX'
      Size = 15
    end
    object CustByOrdTaxRate: TFloatField
      FieldName = 'TaxRate'
    end
    object CustByOrdContact: TStringField
      FieldName = 'Contact'
    end
    object CustByOrdLastInvoiceDate: TDateTimeField
      FieldName = 'LastInvoiceDate'
    end
  end
  object CustByOrdSrc: TDataSource
    DataSet = CustByOrd
    Left = 86
    Top = 60
  end
  object Items: TTable
    Active = True
    CachedUpdates = True
    BeforeOpen = ItemsBeforeOpen
    BeforeInsert = EnsureOrdersEdit
    BeforeEdit = ItemsBeforeEdit
    BeforePost = ItemsBeforePost
    AfterPost = ItemsAfterPost
    BeforeDelete = EnsureOrdersEdit
    AfterDelete = ItemsAfterDelete
    OnNewRecord = ItemsNewRecord
    OnCalcFields = ItemsCalcFields
    DatabaseName = 'MAST'
    IndexFieldNames = 'OrderNo'
    MasterFields = 'OrderNo'
    MasterSource = OrdersSource
    TableName = 'ITEMS'
    Left = 20
    Top = 108
    object ItemsItemNo: TFloatField
      FieldName = 'ItemNo'
      Visible = False
    end
    object ItemsOrderNo: TFloatField
      FieldName = 'OrderNo'
      Visible = False
    end
    object ItemsPartNo: TFloatField
      FieldName = 'PartNo'
      OnValidate = ItemsPartNoValidate
    end
    object ItemsDescription: TStringField
      DisplayWidth = 28
      FieldName = 'Description'
      Lookup = True
      LookupDataSet = Parts
      LookupKeyFields = 'PartNo'
      LookupResultField = 'Description'
      KeyFields = 'PartNo'
      ReadOnly = True
      Size = 30
    end
    object ItemsSellPrice: TCurrencyField
      DisplayWidth = 9
      FieldName = 'SellPrice'
      Lookup = True
      LookupDataSet = Parts
      LookupKeyFields = 'PartNo'
      LookupResultField = 'ListPrice'
      KeyFields = 'PartNo'
    end
    object ItemsQty: TIntegerField
      DisplayWidth = 5
      FieldName = 'Qty'
      OnValidate = ItemsQtyValidate
    end
    object ItemsDiscount: TFloatField
      DisplayWidth = 7
      FieldName = 'Discount'
      DisplayFormat = '0.00%'
      MaxValue = 100.000000000000000000
    end
    object ItemsExtPrice: TCurrencyField
      Calculated = True
      DisplayWidth = 10
      FieldName = 'ExtPrice'
    end
  end
  object ItemsSource: TDataSource
    DataSet = Items
    Left = 86
    Top = 108
  end
  object NextOrd: TTable
    DatabaseName = 'MAST'
    Exclusive = True
    TableName = 'NEXTORD'
    Left = 155
    Top = 12
    object NextOrdNewKey: TFloatField
      FieldName = 'NewKey'
    end
  end
  object Emps: TTable
    Active = True
    OnCalcFields = EmpsCalcFields
    DatabaseName = 'MAST'
    IndexFieldNames = 'EmpNo'
    ReadOnly = True
    TableName = 'EMPLOYEE'
    Left = 20
    Top = 204
    object EmpsEmpNo: TIntegerField
      FieldName = 'EmpNo'
    end
    object EmpsFullName: TStringField
      Calculated = True
      FieldName = 'FullName'
    end
    object EmpsLastName: TStringField
      FieldName = 'LastName'
    end
    object EmpsFirstName: TStringField
      FieldName = 'FirstName'
      Size = 15
    end
    object EmpsPhoneExt: TStringField
      FieldName = 'PhoneExt'
      Size = 4
    end
    object EmpsHireDate: TDateTimeField
      FieldName = 'HireDate'
    end
    object EmpsSalary: TFloatField
      FieldName = 'Salary'
    end
  end
  object EmpsSource: TDataSource
    DataSet = Emps
    Left = 89
    Top = 204
  end
  object LastItemQuery: TQuery
    DatabaseName = 'MAST'
    DataSource = OrdersSource
    Params.Data = {01000100074F726465724E6F000608000000000000588F400000}
    SQL.Strings = (
      'select max(ItemNo)  from Items'
      '  where OrderNo = :OrderNo')
    Left = 155
    Top = 108
  end
  object Cust: TTable
    Active = True
    CachedUpdates = True
    BeforeOpen = CustBeforeOpen
    BeforePost = CustBeforePost
    OnUpdateError = EditUpdateError
    DatabaseName = 'MAST'
    TableName = 'CUSTOMER'
    Left = 236
    Top = 13
    object CustCustNo: TFloatField
      Alignment = taLeftJustify
      DisplayWidth = 6
      FieldName = 'CustNo'
    end
    object CustCompany: TStringField
      DisplayWidth = 26
      FieldName = 'Company'
      Required = True
      Size = 30
    end
    object CustPhone: TStringField
      DisplayWidth = 15
      FieldName = 'Phone'
      Size = 15
    end
    object CustLastInvoiceDate: TDateTimeField
      DisplayLabel = 'LastInvoice'
      DisplayWidth = 10
      FieldName = 'LastInvoiceDate'
      DisplayFormat = 'MM/DD/YY'
    end
    object CustAddr1: TStringField
      FieldName = 'Addr1'
      Size = 30
    end
    object CustAddr2: TStringField
      FieldName = 'Addr2'
      Size = 30
    end
    object CustCity: TStringField
      FieldName = 'City'
      Size = 15
    end
    object CustState: TStringField
      FieldName = 'State'
    end
    object CustZip: TStringField
      FieldName = 'Zip'
      Size = 10
    end
    object CustCountry: TStringField
      FieldName = 'Country'
    end
    object CustFAX: TStringField
      FieldName = 'FAX'
      Size = 15
    end
    object CustTaxRate: TFloatField
      FieldName = 'TaxRate'
    end
    object CustContact: TStringField
      FieldName = 'Contact'
    end
  end
  object CustSource: TDataSource
    DataSet = Cust
    Left = 312
    Top = 13
  end
  object CustQuery: TQuery
    DatabaseName = 'MAST'
    Params.Data = {010002000846726F6D446174650000000006546F4461746500000000}
    SQL.Strings = (
      'select Customer.CustNo, Customer.Company, '
      '         Customer.LastInvoiceDate, Customer.Phone '
      '  from customer'
      '  where '
      '    (customer.LastInvoiceDate >= :FromDate) and'
      '    (customer.LastInvoiceDate <= :ToDate)')
    Left = 236
    Top = 61
    object CustQueryCustNo: TFloatField
      Alignment = taLeftJustify
      DisplayWidth = 6
      FieldName = 'CustNo'
    end
    object CustQueryCompany: TStringField
      DisplayWidth = 26
      FieldName = 'Company'
      Size = 30
    end
    object CustQueryPhone: TStringField
      DisplayWidth = 15
      FieldName = 'Phone'
      Size = 15
    end
    object CustQueryLastInvoiceDate: TDateTimeField
      DisplayLabel = 'LastInvoice'
      DisplayWidth = 10
      FieldName = 'LastInvoiceDate'
      DisplayFormat = 'MM/DD/YY'
    end
  end
  object OrdByCustSrc: TDataSource
    DataSet = OrdByCust
    Left = 312
    Top = 108
  end
  object OrdByCust: TTable
    Active = True
    OnCalcFields = OrdByCustCalcFields
    DatabaseName = 'MAST'
    IndexFieldNames = 'CUSTNO'
    MasterFields = 'CUSTNO'
    MasterSource = CustMasterSrc
    ReadOnly = True
    TableName = 'ORDERS'
    Left = 236
    Top = 108
    object OrdByCustOrderNo: TFloatField
      Alignment = taLeftJustify
      DisplayWidth = 10
      FieldName = 'OrderNo'
    end
    object OrdByCustCustNo: TFloatField
      FieldName = 'CustNo'
      Visible = False
    end
    object OrdByCustSaleDate: TDateTimeField
      DisplayWidth = 9
      FieldName = 'SaleDate'
      DisplayFormat = 'MM/DD/YY'
    end
    object OrdByCustShipDate: TDateTimeField
      DisplayWidth = 9
      FieldName = 'ShipDate'
      DisplayFormat = 'MM/DD/YY'
    end
    object OrdByCustItemsTotal: TCurrencyField
      FieldName = 'ItemsTotal'
      Visible = False
    end
    object OrdByCustTaxRate: TFloatField
      FieldName = 'TaxRate'
      Visible = False
    end
    object OrdByCustFreight: TCurrencyField
      FieldName = 'Freight'
      Visible = False
    end
    object OrdByCustAmountPaid: TCurrencyField
      DisplayWidth = 14
      FieldName = 'AmountPaid'
    end
    object OrdByCustAmountDue: TCurrencyField
      Calculated = True
      DisplayWidth = 14
      FieldName = 'AmountDue'
    end
  end
  object CustMasterSrc: TDataSource
    DataSet = Cust
    Left = 312
    Top = 60
  end
  object CustByComp: TTable
    Active = True
    DatabaseName = 'MAST'
    IndexFieldNames = 'Company'
    TableName = 'CUSTOMER'
    Left = 236
    Top = 156
  end
  object CustByCompSrc: TDataSource
    DataSet = CustByComp
    Left = 312
    Top = 156
  end
end